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MODULE PASSWRITE_VARYING ( RI ATLe ‘Write a varying strin ng 
TDENT = '1-002' !"File: PASWRIVAR.B32 Edit: $8L1002 


BEGIN 


i eeeeeeeeeeeeeeeeeReReHeeeeeeeeeeeeeeeeeeereneeeeeeneeeeeeeeneeeneeeeeeees 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. 

'‘® ALL RIGHTS RESERVED. 


* 
® 
® 
4 ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ° 
4 * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 

® 

® 

® 

® 

® 

® 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


BJE 
OMM 


SRR EEEREARARAE ERE EERE EEE REET 
' 


FACILITY: Pascal Language Support 
ABSTRACT: 


This module asta a@ procedure which writes a varying string 
to a text 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 


1-001 - Original. SBL 1-April-1981 
1-002 - Make total-width a longword. SBL 30-June-1982 


NOUS WN 9 ODNAUE WN HO ODNOAU EWN OO OONOAUS WN ("OO ONOUSWHh 
a kk kk dd dd dt 8 I OOOOO 
oe 


BREESE EWAN noNPononoNngNoNyNyNny 2 2 2 SO OS Oo 


PASRT ee: CSPASURIVAR. 3 2;1 (1) 


| 
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- ze ° 1oxgee- 138s 95:85:49 SRE SpASWnIVAR 64251 - 


2 Declarations PASRTL.SR (2) 
3 28 oR } XSBTTL ‘Declarations’ 
: Hi 0036 1 ! PROLOGUE DEFINITIONS: | 
ei) O82 1. 
3 22 0038 1 REQUIRE "RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
; * 0118 1! 
; 57 0119 1 ! TABLE OF CONTENTS: 
as 0120 1! 
; #659 0121 1 
$ 60 01 ¢ 1 FORWARD ROUTINE 
; 61 01 1 PASSWRITE_VARYING: NOVALUE ! Write to textfile 
: 62 01 4 PASSWRITEV_VARYING: NOVALUE; i Write to string 
: 6 0126 1! 
3 65 0127 1 ! MACROS: 
; 66 0128 1! 
: 67 0129 1! NONE 
; 668 0130 1! 
: 69 0131 1 ! EQUATED SYMBOLS: 
.° SET 1! 
..) 29 0133 1! NONE 
; 72 big 1! 
: 73 0135 1 ! FIELDS: 
: «7% 0136 1! 
. 0137 1! NONE 
; 6 0138 1! 
$ 77 0139 1 =! OWN STORAGE: 
;s 0140 1! 
3 79 0141 1! NONE 
; 8 0142 1! 


SIDE EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 


LINTOOLON = Line too long 7g ; ea 
NEGWIDDIG = negative Width or Digits specification is not allowed 


MEWN—OOONOAUE WN“ OVONOULWN “OOO 


BEGIN 
LOCAL 


on 
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1-002 PASSWRITE. VARYING Unite a varying string tot 14-Sep-19 4 95:8534 PASRTL  SREIPASWRIVAR- B92: 1 . (3) 
3 gb 143 1 ZSBTTL *PASSWRITE_VARYING = Write a varying string to textfile’ 
; § 144 1 GLOBAL ROUTINE passunile VARYING ( 
>; = B4 145 1 PFV: REF SPASSPFU_FILE VARIABLE, ' File variable 
3 | «68D 198 1 STRING: REF VECTOR C,wORDJ, ! Address of string 
; 8686 147 1 OR, ! Error unwind address 
; oT 108 1 TOTAL_WIDTH: SIGNED ' Total field width | 
; we 149 1 ): NOVALUE = 
; 89 0150 1 
; 3 1 1 fe4 
: 3 O13¢ 1 | FUNCTIONAL DESCRIPTION: 
: 38 bie i } This procedure writes a varying string to the specified textfile. | 
; 0156 1 ! CALLING SEQUENCE: 
; 0157 1! 
; wr 0158 1! CALL PASSWRITE_VARYING (PFV.mr.r, STRING. rvt.r 
3 oS B28 ! : C, CERROR.j.rJ C, TOTAL_WIDTH.rl.vJJ) 
; 100 0161 1 ! FORMAL PARAMETERS: 
; 101 Blog 7 | : 
3 106 0165 1! PFV - The Pascal File Variable (PFV) passed by reference. 
3 Ht 818 ! The structure of the PFV is defined in PASPFV.REQ. 
; 105 3198 : 3 STRING - The address of the string to write. The or? 
3 ie ahe4 : current Length is in the first word of the string. 
3; 10 0169 1! ERROR - Optional. If specified, the address to unwind to 
s 10 0170 1! in case of an error. 
s 41 0171 1! 
3 11 He 1! 
; i 0173 1! 
; 0174 1°! IMPLICIT INPUTS: 
s 11 0175 1! 
: 0176 1! NONE 
, 39 0177 1! 
3; 11 0178 1 ! IMPLICIT OUTPUTS: 
; 11 0179 1! 
s 171 0180 1! NONE 
; v2 0181 1! 
3 (Ve Biss 1 ! ROUTINE VALUE: 
: te 0183 1! 
; 2 0184 1! NONE 
3 \¢ p18? : H 
i 45 o1ay | | 
: 12 0188 #1! 
s fe 0189 1! 
: 1 0190 1! 
. 0191 1! 
s 8136 1! 
; 13 193 1! 
3 13 0194 1! 
; %5 0195 1! 
: 13 Bios 1 
: 136 19 
; 3 0198 
| 0199 


TOTAL_WIDTH - Optional. Total field width, defaults to string length. 
| 
| 
| 
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1-002 PASSWRITE VARYING Urite a varying string tot 132808-1 384 9538334 PASRTL. RESPASWRIVAR B92: 
0 FCB: REF SPASSFCB_CONTROL_BLOCK,! File Control block 
1 FIELD _WIDT ' Total width of field 
¢ PFV_ADDR: VOLATILE, ' Enable argument 
UNWIND_ACT: VOLATILE, ' Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 


BUILTIN 
ACTUALCOUNT; 


Count of arguments 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


1+ 
Get ERROR parameter, if present. 
: - tatataaaaal () GEQU 3 
ERROR_ADDR = .ERROR; ! Set unwind address 


PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 
: 


'¢ 
Validate PFV and get FCB. 


WN — SO OONAUESWN“"OVOONIAUS WHO” 


PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 


nm MNMNININ 3 SS OOO 


DIE AN 9 DOONAN WIN 9 OONAUE WN (OOO NAU SWAN $$ OOONAULS WN SOO ODNOUSE 


"set unwind action to unlock file. 

UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 

bo common initialization. 

PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCB); FCB); 


+ 
: See if we have enough room in the record. 


WN =O DONOUSWN“"OVOOnou 


IF ACTUALCOUNT () GEQU 4 
THEN 
BEGIN 
FIELD WIDTH = .TOTAL_WIDTH; 
IF .FIELD_WIDTH LSS 0 
SPASSIO_ERROR (PAS$_NEGWIDDIG,0); 


ELSE 
FIELD_WIDTH = .STRING (0); ! Length is in first word 


BEGIN 
LOCAL 


PIPIPIPIPIPIPIPININININIPYIAIPIPOPINIPIPYPYNINIPIPOPUPIPOPO NIPPON 
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w COnou 
Ne ee eee eee eee eee eee www lol ololololololol ol ololololololololo) 


Page 


13 
PASSWRITE_VARYI Write a varying string 1$- -Sep-1984 02:27:4 AX-11 Bliss-32 V4.0- Page 5 
1-002 PASSWRITE E VARY Ine - Urite a varying string to t 14-Sep- eats yi 9g:eoi tt PASRTL.SR RESPASURIVAR 6 B32;1 . (3) 
; 196 8 7 EATROS ' Extra characters pest end ef Line 
: 197 8 EXTR (; FCB CFCBSA_RECORD_ curl + FIELD WIDTH) = .FCB CFCBSA_RECORD_END]; 
; 198 0 IF EXTRA GTR 
: 199 8 60 THEN 
; sor 61 p- SPASSIO_ERROR (PAS$_LINTOOLON,1,.EXTRA); 
3 oe 0 88 
3 $ 64 '+ 
; 204 0265 j nove leading blanks, if any 
3 so? 0 96 A 
; §$ 8 re IF_ .FIELD_WIDTH -STRING [OJ GTR O : 
: 208 6 69 THEN C 
: 209 0270 BEG! ¢ 
; 210 0271 FCB Crease reegere CUR] = CHSFILL (%C' ', .FIELD_WIDTH = .STRING (OJ, ¢ 
3 211 0 rg BC RECORD_CUR]); ¢ 
; ar 027 FIELD roth: sar RING 6 [0]; ! 
Bm. oer END; 
3 214 0275 ¢ 
s 213 bs78 1+ ¢ 
: 216 Oe? ! Move string to buffer 
Ct Soe Se a> | 
: $3) oso $ FCB CFCBSA_RECORD_CUR] = CHSMOVE (.FIELD_WIDTH, STRING C1], .FCB CFCBSA_RECORD_CUR]); ‘ 
: 221 0282 2 '¢ E 
3; 222 os8e § i Call WRITE epilogue routine to move the Last character written to the F 
: 223 0284 i user's buffer and to unlock the file variable. G 
: 224 0285 2 ie 
3; 225 0286 2 I 
; 226 0287 2 PASSSEND_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB)); ] 
S ger 0288 2 I 
s 228 0289 § RETURN; L 
3: 229 0290 L 
3; 2350 0291 1 END; ! End of routine PASSWRITE_VARYING : 
L 
eTITL CaSAyE {TE VARYING Write a varying string L 
IDENT \1-002\ ; 


E 

T 

N PAS$WRITE_VARYING 
N PASSWRITEV_VARYING 


R W 
TRN PASSSSIGNAL, PASSK_NEGWIDDIG 
NTOOLON 

TEXTRN PASSSEND_WRITE 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


= ee oe 


07FC 00000 ENTRY passuel ie VARYING, Save R2,R3,R4,R5,R6,R7,- : 0144 
5A 000000006 00 9 000 MOV PRESS TGNAL, R10 : 
SE 8 C2 0000 SUBL2 #8, SP : 
7E 000C CLRL ERROR_ADDR : 0197 
04 AE O00E CLRG  - UNWIND_ACT : 
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PASSURITE -VARYI Write a varyin 16-Sep-19 AX-11 Bliss-32 V4.0 P 
1-002 PASBURITE. VARYING © Urite a varying string to t IeeSepetone $o:8ort PASRTL SREIPASURIVAR. 692: 1 o0e 35 
0083 «CF 0011 MOVAL (FP) ; 
88 gt Bf ol CMPB OF 6y : 0216 ‘ 
04 1F 9001 BLSSU_1$ : | 
6E of AC DO 00018 MOVL age ERROR_ADDR 3 0218 i 
08 26 4 at 8 a038 1$ MOVE 44 : 0220 
000000006 00 16 § ; JSB RG, PV ADDR PFV ; 0226 i 
04 AE 01 D 38 D MOVL #1, UNWIND ACT 3 0232 f 
000000006 00 16 00021 JSB PASSSINIT_ORITE + 0238 f 
04 6¢ 91 00037 CMPB sé), «#4 + 0244 ' 
10 1F O3A BLSSU 2 : 
58 10 ac 00 0 C MOVL §§TOTAL_WIDTH, FIELD_WIDTH : 0247 
OE 1 46 BGEG 46-3 + 0248 
E D4 00042 CLRL  =(SP) + 0250 : 
7E 006 8F 9A 00044 MOVZBL M#PASS$K_NEGWIDDIG, -(SP) : | 
6A 02 FB 00048 CALLS #2, PASSS$SIGNAL : t 
04 00048 RET : 
58 08 BC 3C 0004C 38: MOVZWL @STRING, FIELD_WIDTH + 0253 : 
50 58 EC A? C1 90090 $: ADDL3 -20(FCBS, FIELB_WIDTH, RO + 0258 j 
50 FO OA? ce 0055 SUBL2 <-16(FCB), EXTRA~ : : 
0c 15 00059 BLEG 4$ : 0259 f 
50 DD 00058 PUSHL EXTRA > 0261 i 
01 DD 0005p PUSHL #1 ; f 
7E 006 8F 9A 0005F MOVZBL #PASS$K_LINTOOLON, -(SP) : ' 
6A 03 FB 00063 CALLS #3, PASSS$SIGNAL : 
04 00066 T ; 
59 08 AC DO 00067 4$: MOVL STRING + 0268 
58 69 10 00 ED 00068 CMPZV #0, dp 2R9). FIELD_WIDTH ; 
15 18 00070 BGEG : i 
50 69 3¢ 00072 MOV ZWL : 0271 
50 58 50 ¢3 0007 SUBL3 Ag’ ty ELD. WIDTH, RO : { 
50 20 6E 00 2C 00079 MOVCS #0. (SP), "#32, RO, a@-20(FCB) + 0272 f 
EC B67 0007E ; f 
EC Av 53 00 00080 MOVL 3, -20(FCB) ; f 
58 69 3¢ 90084 MOV2WL (RO), FIELD WIDTH : 0273 { 
EC 87 02 A9 58 28 00087 5$ MOVC3 FIELD WIDTH; 2(R9), a-20(FCB) : 0280 i 
EC AT 53 D0 0008D MOVL 3, =20(FCB : ' 
000000006 00 16 00091 JSB PASSSEND_WRITE : 0287 
04 00097 RET : 0291 
0000 00098 6$: -WORD Save nothing ; 0197 
50 08 AC DO OO009A MOVL  8(AP), RO ; 
50 04 AO DO 0009 MOVL  4(RO); RO ; | 
F4 AO 9F OOOA PUSHAB ERROR ADDR : | 
F8 AO OF OO PUSHAB UNWIND ACT : | 
FC AO 9F O00AB PUSHAB PFV : | 
03 DD OO0AB PUSHL #3 : 
5E bp O00AD PUSHL : | 
7E 04 AC 7D OOOAF MOVa 4(AP), =(SP) : | 
000000006 00 03 FB 000B3 CALLS #3, PASS$$IO_HANDLER : | 
04 O00BA RET : | 
3; Routine Size: 187 bytes, Routine Base: _PASSCODE + 0000 : 


iad4 1 
0295 1 !<BLF/PAGE> 
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va 
EV 
ZSBTTL ‘PASSWRITEV_VARYING = Write varying to string’ 
GLOBAL we PASSURLIEVVARYING ( — ° next [ — ; 
: “ aximum Length of strin 

STRING LINE: REF “VECTOR C, WORD, lect" 


String to write 


i] 
i 
STRING? REF VECTOR CL, WORD], ) String to write 
e HM rror 
TOTAL WIDTH: SIGNED i Total field width 
) : NOVALOE = 


+ 
FUNCTIONAL DESCRIPTION: 

This procedure writes a varying to the specified string. 
CALLING SEQUENCE: 


CALL_PASSWRITEV_STRING (MAX_LENGTH.rw.v, STRING_LINE.wvt.r, 
STRING.rvt.r-C, CERROR.j-r) CTOTAL_WIDTH.rl.vJJ) 


FORMAL PARAMETERS: 


MAX_LENGTH - The maximum Length of STRING_LINE. 
STRING_LINE - A varying string to which the output will be appended. 
STRING - The varying string to write. 
ERROR - Optional. If specified, the address to unwind to 
in case of an error. 
TOTAL WIDTH - The width of the field to write. Optional, defaults 


to STRING_LENGTH. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

NONE 
SIDE EFFECTS: 

NONE 
SIGNALLED ERRORS: 

See PASSWRITE_VARYING 
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1-002 PASSWRITEV_VARYING = Grite varying to string 1a 8ee- 1984 95583 :7% PASRTL. SRC IPASWRIVAR.B 2;1 . (4) | 

; ov 0351 CAL | 

; 29 0 26 PFV: SPASSPFV ae WARE ' Pascal File Variable 

; 2 035 ARG_LIST: VECTOR (5, LONGI, ' Argument List 

: 294 0354 PFV_ADDR: VOLATILE, ! Enable argument 

; 295 0339 UNWIND_ACT: VOLATILE, ' Enable argument | 

3 $39 B29 ERROR_ADDR: VOLATILE; ! Enable argument 

: 998 0358 BUILTIN | 

; 299 0359 ACTUALCOUNT; ! Count of arguments | 

; 300 0360 

; 301 0361 2 ENABLE 

; 308 O36¢ § PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler | 

; 304 0364 § + 

; We 0365 ' Get ERROR parameter, if present. 

; 306 0366 2 te 

: wor 0367 2 

; 308 0368 2 IF ACTUALCOUNT () GEQU 4 

; 2? 0369 2 THEN ; 

; s19 B59 3 ERROR_ADDR = .ERROR; ! Set unwind address 

: Ze 0372 2 PFV_ADDR = PFV CPFVS$R_PFV); ! Set PFV address 

>; 313 0373 2 | 

3; 314 0374 2 \4 

g BIS 0375 2 ' Set up ARG_LIST. | 

; 2 0376 2 {~ 

“ie 1h 4 0377 2 | 

: 318 0378 2 ARG_LIST [0] = 2; ' Two arguments 

: 319 0379 2 ARG_LIST r1] = PFV CPFVSR_PFV); i PV address _ 

; 320 0380 2 RG_LIST C2) = STRING (0); ! String to write | 

5; Sev 0381 2 If ACTUALCOUNT () GEQU 5 

; 322 0382 2 N | 

3 hee 0383 3 BEGIN 

; 324 0384 3 ARG_LIST (OJ = 4; ! Add two more arguments 

:. See 0385 3 ARG_LIST 74 = 0; ! Error address 

3; 63e0 0386 3 ARG_LIST C4] = .TOTAL_WIDTH; ! Field width 

3 Ser 0387 2 END; 

; 328 0388 2 

; 329 0389 2 '¢ sear. 

: 330 0390 2 ' Call PASS$DO_WRITEV to do the work, giving it the address of 

3 331 0391 2 i PAS$WRITE_VARYING to call. | 

: 335 0303 5 | 

3; 334 0394 $ PASSS$DO_WRITEV (PFV CPFVSR_PFV], .MAX_LENGTH, STRING_LINE CO), ARG_LIST, 

3 Soe 0395 2 PASSWRITE_VARYING); 

; 336 0396 2 

s Sor 0397 2 RETURN; 

: 338 0398 2 

; 339 0399 1 END; ! End of routine PASSWRITEV_VARYING 


.EXTRN PASSSDO_WRITEV 


€ 00000 sENTRY PASSWRITEV_VARYING, Save R2,R3,R4,R5,R6 ; 0295 | 
5E 6c Ce i SUBL2 : 
E 04 0000 CLAL 


44, SP 
ERROR_ADDR > 0349 
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1-002 PASSURITEV.. AR ING” - Write varying to string 14-Sep-1984 2:11 PASRTL.SRCJPASWRIVAR.B52;1 (4) | 
04 AE 7C 00007 CLROQ yNWINo ACT : | 
6D 004A CF DE OA MOVAL 3$, (FP) : 
4 6¢ OF CMPB. ss AP), #4 + 0368 
4 1F 00012 BLSSU.'1$ : 
6E 10 AC dO 00014 MOVL ERROR ERROR ghdor : 0370 
08 AE 20 AE 3 0018 1$: MOVAB PFV, PFV : 0 3 
OC AE 02 00 00010 MOVL #2, ARG yeti 3 037 
10 AE 20 AE 9E i 1 MOVAB’ PFV, ARG_LIST+4 3: 0379 
4 A 0C AC 00 00026 MOVL STRING, ARG_LIST+8 : 0380 
05 6C 91 900 B CMPB ss CAP), #5 + 0381 
OC 1F O002E BLSSU 2$ : 
OC AE 04 00 990 0 MOVL #4, ARG List : 0 
18 AE D4 00034 CLRL  4RG_LIST#1 : 0 
1C AE 14 AC DO 00037 MOVL /OTAL_WIDTH, ARG LIST+16 : 0 
. FFOS CF 9E 0003C 2$ MOVAB PASSWRITE_VARYING, ; 0 
54 o¢ AE 9E 00041 MOVAB RG_LIST,— R4 : 
56 20 AE 9E 00045 MOVAB  PFV : 
53 08 AC 00 00049 OVL STRING LINE, ai ; 
52 04 AC 3C 00040 MOVZWL LENGT : 
000000006 00 i6 90051 138 PASSSDO. unite = 
0000 00058 3$ «WORD Save nothing > 0349 
50 08 AC DO O005A MOVL  BCAP), ; 
50 04 AO DO 0005 MOVL  4(RO). RO ; 
DO AO 9F 00062 PUSHAB ERROR_ADDR : 
D4 AO 9F 00065 PUSHAB UNWIND ACT ; 
D8 AO 9F 00068 PUSHAB PFV_ADD : 
03 DD 00068 PUSHL #3 ; 
5E DD 0006D PUSHL SP ; 
7E 04 AC 7D 0006F MOVQ 4(AP), =(SP) : 
000000006 00 03 FB 00073 CALLS #3, PAS$$IO_HANDLER F 
04 0007A RET F 


; Routine Size: 123 bytes, Routine Base: _PASSCODE + 00BB 


; 0400 1 
; (341 0401 1 !<BLF/PAGE> 
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1-002 PASSURITEV.. ARYING = Write varying to string 14-Sep-1984 2:1 PASRTL.SRC PASURIVAR. if 2;1 (5 


43 pans 1 END ! End of module PASS$WRITE_VARYING 
44 0405 1 
45 0404 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: PASSCODE . 310 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Baa Symbols ocoeceee Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
3; _$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 96 22 33 00:00.4 
; COMMAND QUALIFIERS 


PL ESS/EMECR OEY ELD. EME TEA, OPT IAL EE AUGTRALE AL, EGM4, 55S 1 PASURLVAR/CR OR. IS CPR EWR MSRC$:PASWRIVAR/UPDATE=(ENHS$: PASWRIVAR 


Size: 310 code + 0 data bytes 
Run Time: Fhe 

Elapsed Time: 00:16. 

Lines/CPU Min: 45 


30 
Lexemes/CPU-Min: 14306 
1 Used: 91 pages 
; Compilation Complete 
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